home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / TOOLS / SAMPLES / HP / HP.ASM / HP.MACROS < prev    next >
Encoding:
Text File  |  1987-08-14  |  8.6 KB  |  715 lines  |  [04] ASCII Text (0x0000)
  1.  MACRO
  2. &lab _DialogStartUp
  3. &lab ldx #$0215
  4.  jsl $E10000
  5.  MEND
  6.  MACRO
  7. &lab _DialogShutDown
  8. &lab ldx #$0315
  9.  jsl $E10000
  10.  MEND
  11.  MACRO
  12. &lab _CautionAlert
  13. &lab ldx #$1A15
  14.  jsl $E10000
  15.  MEND
  16.  MACRO
  17. &lab _CloseDialog
  18. &lab ldx #$0C15
  19.  jsl $E10000
  20.  MEND
  21.  MACRO
  22. &lab _DrawDialog
  23. &lab ldx #$1615
  24.  jsl $E10000
  25.  MEND
  26.  MACRO
  27. &lab _GetNewModalDialog
  28. &lab ldx #$3215
  29.  jsl $E10000
  30.  MEND
  31.  MACRO
  32. &lab _ModalDialog
  33. &lab ldx #$0F15
  34.  jsl $E10000
  35.  MEND
  36.  MACRO
  37. &lab _NewDItem
  38. &lab ldx #$0D15
  39.  jsl $E10000
  40.  MEND
  41.  MACRO
  42. &lab _NewModalDialog
  43. &lab ldx #$0A15
  44.  jsl $E10000
  45.  MEND
  46.  MACRO
  47. &lab _StopAlert
  48. &lab ldx #$1815
  49.  jsl $E10000
  50.  MEND
  51.  MACRO
  52. &lab _EMStartUp
  53. &lab ldx #$0206
  54.  jsl $E10000
  55.  MEND
  56.  MACRO
  57. &lab _EMShutDown
  58. &lab ldx #$0306
  59.  jsl $E10000
  60.  MEND
  61.  MACRO
  62. &lab _FMStartUp
  63. &lab ldx #$021B
  64.  jsl $E10000
  65.  MEND
  66.  MACRO
  67. &lab _FMShutDown
  68. &lab ldx #$031B
  69.  jsl $E10000
  70.  MEND
  71.  MACRO
  72. &lab _ChooseFont
  73. &lab ldx #$161B
  74.  jsl $E10000
  75.  MEND
  76.  MACRO
  77. &lab _GetFamInfo
  78. &lab ldx #$0B1B
  79.  jsl $E10000
  80.  MEND
  81.  MACRO
  82. &lab _InstallFont
  83. &lab ldx #$0E1B
  84.  jsl $E10000
  85.  MEND
  86.  MACRO
  87. &lab _HexIt
  88. &lab ldx #$2A0B
  89.  jsl $E10000
  90.  MEND
  91.  MACRO
  92. &lab _Int2Dec
  93. &lab ldx #$260B
  94.  jsl $E10000
  95.  MEND
  96.  MACRO
  97. &lab _Int2Hex
  98. &lab ldx #$220B
  99.  jsl $E10000
  100.  MEND
  101.  MACRO
  102. &lab _Multiply
  103. &lab ldx #$090B
  104.  jsl $E10000
  105.  MEND
  106.  MACRO
  107. &lab _LEStartUp
  108. &lab ldx #$0214
  109.  jsl $E10000
  110.  MEND
  111.  MACRO
  112. &lab _LEShutDown
  113. &lab ldx #$0314
  114.  jsl $E10000
  115.  MEND
  116.  MACRO
  117. &lab _TLStartUp
  118. &lab ldx #$0201
  119.  jsl $E10000
  120.  MEND
  121.  MACRO
  122. &lab _TLShutDown
  123. &lab ldx #$0301
  124.  jsl $E10000
  125.  MEND
  126.  MACRO
  127. &lab _LoadTools
  128. &lab ldx #$0E01
  129.  jsl $E10000
  130.  MEND
  131.  MACRO
  132. &lab _TLMountVolume
  133. &lab ldx #$1101
  134.  jsl $E10000
  135.  MEND
  136.  MACRO
  137. &lab _MMStartUp
  138. &lab ldx #$0202
  139.  jsl $E10000
  140.  MEND
  141.  MACRO
  142. &lab _MMShutDown
  143. &lab ldx #$0302
  144.  jsl $E10000
  145.  MEND
  146.  MACRO
  147. &lab _DisposeHandle
  148. &lab ldx #$1002
  149.  jsl $E10000
  150.  MEND
  151.  MACRO
  152. &lab _NewHandle
  153. &lab ldx #$0902
  154.  jsl $E10000
  155.  MEND
  156.  MACRO
  157. &lab _MTStartUp
  158. &lab ldx #$0203
  159.  jsl $E10000
  160.  MEND
  161.  MACRO
  162. &lab _MTShutDown
  163. &lab ldx #$0303
  164.  jsl $E10000
  165.  MEND
  166.  MACRO
  167. &lab _SysFailMgr
  168. &lab ldx #$1503
  169.  jsl $E10000
  170.  MEND
  171.  MACRO
  172. &lab _PMStartUp
  173. &lab ldx #$0213
  174.  jsl $E10000
  175.  MEND
  176.  MACRO
  177. &lab _PMShutDown
  178. &lab ldx #$0313
  179.  jsl $E10000
  180.  MEND
  181.  MACRO
  182. &lab _PrChooser
  183. &lab ldx #$1613
  184.  jsl $E10000
  185.  MEND
  186.  MACRO
  187. &lab _PrCloseDoc
  188. &lab ldx #$0F13
  189.  jsl $E10000
  190.  MEND
  191.  MACRO
  192. &lab _PrClosePage
  193. &lab ldx #$1113
  194.  jsl $E10000
  195.  MEND
  196.  MACRO
  197. &lab _PrDefault
  198. &lab ldx #$0913
  199.  jsl $E10000
  200.  MEND
  201.  MACRO
  202. &lab _PrJobDialog
  203. &lab ldx #$0C13
  204.  jsl $E10000
  205.  MEND
  206.  MACRO
  207. &lab _PrOpenDoc
  208. &lab ldx #$0E13
  209.  jsl $E10000
  210.  MEND
  211.  MACRO
  212. &lab _PrOpenPage
  213. &lab ldx #$1013
  214.  jsl $E10000
  215.  MEND
  216.  MACRO
  217. &lab _PrPicFile
  218. &lab ldx #$1213
  219.  jsl $E10000
  220.  MEND
  221.  MACRO
  222. &lab _PrStlDialog
  223. &lab ldx #$0B13
  224.  jsl $E10000
  225.  MEND
  226.  MACRO
  227. &lab _PrValidate
  228. &lab ldx #$0A13
  229.  jsl $E10000
  230.  MEND
  231.  MACRO
  232. &lab _SFStartUp
  233. &lab ldx #$0217
  234.  jsl $E10000
  235.  MEND
  236.  MACRO
  237. &lab _SFShutDown
  238. &lab ldx #$0317
  239.  jsl $E10000
  240.  MEND
  241.  MACRO
  242. &lab _SFAllCaps
  243. &lab ldx #$0D17
  244.  jsl $E10000
  245.  MEND
  246.  MACRO
  247. &lab _SFGetFile
  248. &lab ldx #$0917
  249.  jsl $E10000
  250.  MEND
  251.  MACRO
  252. &lab _CtlStartUp
  253. &lab ldx #$0210
  254.  jsl $E10000
  255.  MEND
  256.  MACRO
  257. &lab _CtlShutDown
  258. &lab ldx #$0310
  259.  jsl $E10000
  260.  MEND
  261.  MACRO
  262. &lab _DeskStartUp
  263. &lab ldx #$0205
  264.  jsl $E10000
  265.  MEND
  266.  MACRO
  267. &lab _DeskShutDown
  268. &lab ldx #$0305
  269.  jsl $E10000
  270.  MEND
  271.  MACRO
  272. &lab _CloseNDAByWinPtr
  273. &lab ldx #$1C05
  274.  jsl $E10000
  275.  MEND
  276.  MACRO
  277. &lab _FixAppleMenu
  278. &lab ldx #$1E05
  279.  jsl $E10000
  280.  MEND
  281.  MACRO
  282. &lab _MenuStartUp
  283. &lab ldx #$020F
  284.  jsl $E10000
  285.  MEND
  286.  MACRO
  287. &lab _MenuShutDown
  288. &lab ldx #$030F
  289.  jsl $E10000
  290.  MEND
  291.  MACRO
  292. &lab _CalcMenuSize
  293. &lab ldx #$1C0F
  294.  jsl $E10000
  295.  MEND
  296.  MACRO
  297. &lab _DeleteMItem
  298. &lab ldx #$100F
  299.  jsl $E10000
  300.  MEND
  301.  MACRO
  302. &lab _DisableMItem
  303. &lab ldx #$310F
  304.  jsl $E10000
  305.  MEND
  306.  MACRO
  307. &lab _DrawMenuBar
  308. &lab ldx #$2A0F
  309.  jsl $E10000
  310.  MEND
  311.  MACRO
  312. &lab _EnableMItem
  313. &lab ldx #$300F
  314.  jsl $E10000
  315.  MEND
  316.  MACRO
  317. &lab _FixMenuBar
  318. &lab ldx #$130F
  319.  jsl $E10000
  320.  MEND
  321.  MACRO
  322. &lab _HiliteMenu
  323. &lab ldx #$2C0F
  324.  jsl $E10000
  325.  MEND
  326.  MACRO
  327. &lab _InsertMenu
  328. &lab ldx #$0D0F
  329.  jsl $E10000
  330.  MEND
  331.  MACRO
  332. &lab _InsertMItem
  333. &lab ldx #$0F0F
  334.  jsl $E10000
  335.  MEND
  336.  MACRO
  337. &lab _NewMenu
  338. &lab ldx #$2D0F
  339.  jsl $E10000
  340.  MEND
  341.  MACRO
  342. &lab _SetMenuFlag
  343. &lab ldx #$1F0F
  344.  jsl $E10000
  345.  MEND
  346.  MACRO
  347. &lab _SetMItem
  348. &lab ldx #$240F
  349.  jsl $E10000
  350.  MEND
  351.  MACRO
  352. &lab _SetMItemID
  353. &lab ldx #$380F
  354.  jsl $E10000
  355.  MEND
  356.  MACRO
  357. &lab _SetMTitleStart
  358. &lab ldx #$190F
  359.  jsl $E10000
  360.  MEND
  361.  MACRO
  362. &lab _QDAuxStartUp
  363. &lab ldx #$0212
  364.  jsl $E10000
  365.  MEND
  366.  MACRO
  367. &lab _QDAuxShutDown
  368. &lab ldx #$0312
  369.  jsl $E10000
  370.  MEND
  371.  MACRO
  372. &lab _WaitCursor
  373. &lab ldx #$0A12
  374.  jsl $E10000
  375.  MEND
  376.  MACRO
  377. &lab _QDStartUp
  378. &lab ldx #$0204
  379.  jsl $E10000
  380.  MEND
  381.  MACRO
  382. &lab _QDShutDown
  383. &lab ldx #$0304
  384.  jsl $E10000
  385.  MEND
  386.  MACRO
  387. &lab _ClosePort
  388. &lab ldx #$1A04
  389.  jsl $E10000
  390.  MEND
  391.  MACRO
  392. &lab _DrawString
  393. &lab ldx #$A504
  394.  jsl $E10000
  395.  MEND
  396.  MACRO
  397. &lab _GetFontFlags
  398. &lab ldx #$9904
  399.  jsl $E10000
  400.  MEND
  401.  MACRO
  402. &lab _GetFontID
  403. &lab ldx #$D104
  404.  jsl $E10000
  405.  MEND
  406.  MACRO
  407. &lab _GetFontInfo
  408. &lab ldx #$9604
  409.  jsl $E10000
  410.  MEND
  411.  MACRO
  412. &lab _GetPen
  413. &lab ldx #$2904
  414.  jsl $E10000
  415.  MEND
  416.  MACRO
  417. &lab _GetPort
  418. &lab ldx #$1C04
  419.  jsl $E10000
  420.  MEND
  421.  MACRO
  422. &lab _InitCursor
  423. &lab ldx #$CA04
  424.  jsl $E10000
  425.  MEND
  426.  MACRO
  427. &lab _MoveTo
  428. &lab ldx #$3A04
  429.  jsl $E10000
  430.  MEND
  431.  MACRO
  432. &lab _OpenPort
  433. &lab ldx #$1804
  434.  jsl $E10000
  435.  MEND
  436.  MACRO
  437. &lab _PPToPort
  438. &lab ldx #$D604
  439.  jsl $E10000
  440.  MEND
  441.  MACRO
  442. &lab _SetBackColor
  443. &lab ldx #$A204
  444.  jsl $E10000
  445.  MEND
  446.  MACRO
  447. &lab _SetFontFlags
  448. &lab ldx #$9804
  449.  jsl $E10000
  450.  MEND
  451.  MACRO
  452. &lab _SetForeColor
  453. &lab ldx #$A004
  454.  jsl $E10000
  455.  MEND
  456.  MACRO
  457. &lab _SetPort
  458. &lab ldx #$1B04
  459.  jsl $E10000
  460.  MEND
  461.  MACRO
  462. &lab _ShowCursor
  463. &lab ldx #$9104
  464.  jsl $E10000
  465.  MEND
  466.  MACRO
  467. &lab _StringWidth
  468. &lab ldx #$A904
  469.  jsl $E10000
  470.  MEND
  471.  MACRO
  472. &lab _WindStartUp
  473. &lab ldx #$020E
  474.  jsl $E10000
  475.  MEND
  476.  MACRO
  477. &lab _WindShutDown
  478. &lab ldx #$030E
  479.  jsl $E10000
  480.  MEND
  481.  MACRO
  482. &lab _BeginUpdate
  483. &lab ldx #$1E0E
  484.  jsl $E10000
  485.  MEND
  486.  MACRO
  487. &lab _CloseWindow
  488. &lab ldx #$0B0E
  489.  jsl $E10000
  490.  MEND
  491.  MACRO
  492. &lab _EndUpdate
  493. &lab ldx #$1F0E
  494.  jsl $E10000
  495.  MEND
  496.  MACRO
  497. &lab _FrontWindow
  498. &lab ldx #$150E
  499.  jsl $E10000
  500.  MEND
  501.  MACRO
  502. &lab _GetSysWFlag
  503. &lab ldx #$4C0E
  504.  jsl $E10000
  505.  MEND
  506.  MACRO
  507. &lab _GetWRefCon
  508. &lab ldx #$290E
  509.  jsl $E10000
  510.  MEND
  511.  MACRO
  512. &lab _GetWTitle
  513. &lab ldx #$0E0E
  514.  jsl $E10000
  515.  MEND
  516.  MACRO
  517. &lab _HideWindow
  518. &lab ldx #$120E
  519.  jsl $E10000
  520.  MEND
  521.  MACRO
  522. &lab _NewWindow
  523. &lab ldx #$090E
  524.  jsl $E10000
  525.  MEND
  526.  MACRO
  527. &lab _RefreshDesktop
  528. &lab ldx #$390E
  529.  jsl $E10000
  530.  MEND
  531.  MACRO
  532. &lab _SelectWindow
  533. &lab ldx #$110E
  534.  jsl $E10000
  535.  MEND
  536.  MACRO
  537. &lab _SetOriginMask
  538. &lab ldx #$340E
  539.  jsl $E10000
  540.  MEND
  541.  MACRO
  542. &lab _SetWTitle
  543. &lab ldx #$0D0E
  544.  jsl $E10000
  545.  MEND
  546.  MACRO
  547. &lab _ShowWindow
  548. &lab ldx #$130E
  549.  jsl $E10000
  550.  MEND
  551.  MACRO
  552. &lab _TaskMaster
  553. &lab ldx #$1D0E
  554.  jsl $E10000
  555.  MEND
  556.  MACRO
  557. &lab _CREATE ¶ms
  558. &lab jsl $E100A8
  559.  dc i2"1"
  560.  dc i4"¶ms"
  561.  MEND
  562.  MACRO
  563. &lab _DESTROY ¶ms
  564. &lab jsl $E100A8
  565.  dc i2"2"
  566.  dc i4"¶ms"
  567.  MEND
  568.  MACRO
  569. &lab _GET_FILE_INFO ¶ms
  570. &lab jsl $E100A8
  571.  dc i2"6"
  572.  dc i4"¶ms"
  573.  MEND
  574.  MACRO
  575. &lab _SET_PREFIX ¶ms
  576. &lab jsl $E100A8
  577.  dc i2"9"
  578.  dc i4"¶ms"
  579.  MEND
  580.  MACRO
  581. &lab _GET_PREFIX ¶ms
  582. &lab jsl $E100A8
  583.  dc i2"$0A"
  584.  dc i4"¶ms"
  585.  MEND
  586.  MACRO
  587. &lab _OPEN ¶ms
  588. &lab jsl $E100A8
  589.  dc i2"$10"
  590.  dc i4"¶ms"
  591.  MEND
  592.  MACRO
  593. &lab _READ ¶ms
  594. &lab jsl $E100A8
  595.  dc i2"$12"
  596.  dc i4"¶ms"
  597.  MEND
  598.  MACRO
  599. &lab _WRITE ¶ms
  600. &lab jsl $E100A8
  601.  dc i2"$13"
  602.  dc i4"¶ms"
  603.  MEND
  604.  MACRO
  605. &lab _CLOSE ¶ms
  606. &lab jsl $E100A8
  607.  dc i2"$14"
  608.  dc i4"¶ms"
  609.  MEND
  610.  MACRO
  611. &lab _QUIT ¶ms
  612. &lab jsl $E100A8
  613.  dc i2"$29"
  614.  dc i4"¶ms"
  615.  MEND
  616.  MACRO
  617. &lab pulllong &addr1,&addr2
  618. &lab ANOP
  619.  AIF C:&addr1=0,.a
  620.  AIF C:&addr2=0,.b
  621.  LCLC &C
  622. &C AMID &addr1,1,1
  623.  AIF "&C"="[",.zeropage
  624.  pullword &addr1
  625.  sta &addr2
  626.  pullword &addr1+2
  627.  sta &addr2+2
  628.  MEXIT
  629. .a
  630.  pullword
  631.  pullword
  632.  MEXIT
  633. .b
  634.  pullword &addr1
  635.  pullword &addr1+2
  636.  MEXIT
  637. .zeropage
  638.  ldy #&addr2
  639.  pullword &addr1,y
  640.  ldy #&addr2+2
  641.  pullword &addr1,y
  642.  MEND
  643.  MACRO
  644. &lab pullword &SYSOPR
  645. &lab ANOP
  646.  pla
  647.  AIF C:&SYSOPR=0,.end
  648.  sta &SYSOPR
  649. .end
  650.  MEND
  651.  MACRO
  652. &lab pushlong &addr,&offset
  653. &lab ANOP
  654.  LCLC &C
  655.  LCLC &REST
  656. &C AMID &addr,1,1
  657.  AIF "&C"="#",.immediate
  658.  AIF "&C"="[",.zeropage
  659.  AIF C:&offset=0,.nooffset
  660.  AIF "&offset"="s",.stack
  661.  pushword &addr+2,&offset
  662.  pushword &addr,&offset
  663.  MEXIT
  664. .nooffset
  665.  pushword &addr+2
  666.  pushword &addr
  667.  MEXIT
  668. .immediate
  669. &REST AMID &addr,2,L:&addr-1
  670.  dc I1'$F4',I2'(&REST)|-16'
  671.  dc I1'$F4',I2'&REST'
  672.  MEXIT
  673. .stack
  674.  pushword &addr+2,s
  675.  pushword &addr+2,s
  676.  MEXIT
  677. .zeropage
  678.  ldy #&offset+2
  679.  pushword &addr,y
  680.  ldy #&offset
  681.  pushword &addr,y
  682.  MEND
  683.  MACRO
  684. &lab pushword &SYSOPR
  685. &lab ANOP
  686.  AIF C:&SYSOPR=0,.b
  687.  LCLC &C
  688. &C AMID "&SYSOPR",1,1
  689.  AIF ("&C"="#").AND.(S:LONGA),.immediate
  690.  lda &SYSOPR
  691.  pha
  692.  MEXIT
  693. .b
  694.  pha
  695.  MEXIT
  696. .immediate
  697.  LCLC &REST
  698.  LCLA &BL
  699. &BL ASEARCH "&SYSOPR"," ",1
  700.  AIF &BL>0,.a
  701. &BL SETA L:&SYSOPR+1
  702. .a
  703. &REST AMID "&SYSOPR",2,&BL-2
  704.  dc I1'$F4',I2'&REST'
  705.  MEND
  706.  MACRO
  707. &lab str &string
  708. &lab dc i1'L:&string',C'&string'
  709.  MEND
  710.  MACRO
  711. &lab _SFPutFile
  712. &lab ldx #$0A17
  713.  jsl $E10000
  714.  MEND
  715.